home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
prog_d
/
wptools1.zip
/
DEMO
/
MDI_PRJ
/
MAIN.DFM
/
MAIN.txt
Wrap
Text File
|
1996-04-13
|
5KB
|
194 lines
object MainForm: TMainForm
Left = 205
Top = 114
Width = 479
Height = 340
Caption = 'MDI Application'
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
FormStyle = fsMDIForm
Menu = MainMenu1
PixelsPerInch = 96
Position = poDefault
WindowMenu = Window1
OnCreate = FormCreate
OnDestroy = FormDestroy
TextHeight = 16
object WPToolBar1: TWPToolBar
Left = 0
Top = 0
Width = 471
Height = 54
Align = alTop
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
BevelInner = bvRaised
BevelOuter = bvNone
sel_ListBoxes = [SelFontName, SelFontSize, SelFontColor, SelBackgroundColor]
sel_StatusIcons = [SelNormal, SelBold, SelItalic, SelUnder, SelHyperLink, SelStrikeOut, SelLeft, SelRight, SelBlock, SelCenter]
sel_ActionIcons = [SelExit, SelNew, SelOpen, SelSave, SelClose, SelPrint, SelPrintSetup]
sel_DatabaseIcons = []
sel_EditIcons = [SelCopy, SelCut, SelPaste, SelSelAll, SelHideSel, SelFind, SelReplace, SelSpellCheck]
FontSizeFrom = 8
OnIconSelection = WPToolBar1IconSelection
Hints.Strings = (
'WPI_Normal=Normal'
'WPI_Bold=Bold'
'WPI_Italic=Italic'
'WPI_Under=Under'
'WPI_Hyperlink=Hyperlink'
'WPI_StrikeOut=StrikeOut'
'WPI_Left=Left'
'WPI_Right=Right'
'WPI_Justified=Justified'
'WPI_Center=Center'
'WPI_Copy=Copy'
'WPI_Cut=Cut'
'WPI_Paste=Paste'
'WPI_SelAll=SelAll'
'WPI_HideSel=HideSel'
'WPI_Find=Find'
'WPI_Replace=Replace'
'WPI_Spell=Spell'
'WPI_Exit=Exit'
'WPI_New=New'
'WPI_Open=Open'
'WPI_Save=Save'
'WPI_Close=Close'
'WPI_Print=Print'
'WPI_PrintSetup=PrintSetup'
'WPI_Next=Next'
'WPI_Prev=Prev'
'WPI_Add=Add'
'WPI_Del=Del'
'WPI_Edit=Edit'
'WPI_Cancel=Cancel'
'WPI_ToStart=ToStart'
'WPI_ToEnd=ToEnd'
'WPI_Post=Post')
object Preview: TButton
Left = 355
Top = 29
Width = 49
Height = 17
Caption = 'Preview'
TabOrder = 0
OnClick = PreviewClick
end
end
object WPAltStatusBar1: TWPAltStatusBar
Top = 277
Width = 471
Height = 17
ShowSizer = True
ShowGauge = True
UseGaugeForWP = True
GaugeValue = 0
GaugeWidth = 100
Strings.Strings = (
'300stStatus=stStatus'
'300stFileName=stFileName'
'100stTxtFmt=stTxtFmt')
Align = alBottom
end
object MainMenu1: TMainMenu
Left = 36
Top = 196
object File1: TMenuItem
Caption = '&File'
Hint = 'Dateibefehle'
object FileNewItem: TMenuItem
Caption = '&New'
Hint = 'Neue Datei erzeugen'
OnClick = FileNewItemClick
end
object FileOpenItem: TMenuItem
Caption = '&Open'
Hint = 'Existierende Datei �ffnen'
OnClick = FileOpenItemClick
end
object FileCloseItem: TMenuItem
Caption = '&Close'
Hint = 'Aktuelle Datei schlie�en'
OnClick = FileCloseItemClick
end
object FileSaveItem: TMenuItem
Caption = '&Save'
Hint = 'Aktuelle Datei speichern'
OnClick = FileSaveItemClick
end
object FileSaveAsItem: TMenuItem
Caption = 'Save &as ...'
Hint = 'Aktuelle Datei speichern unter...'
OnClick = FileSaveAsItemClick
end
object N1: TMenuItem
Caption = '-'
end
object FileExitItem: TMenuItem
Caption = '&Exit'
Hint = 'Anwendung beenden'
OnClick = FileExitItemClick
end
end
object Edit1: TMenuItem
Caption = '&Edit'
object CutItem: TMenuItem
Caption = 'Cut'
Hint = 'In die Zwischenablage verschieben'
OnClick = CutItemClick
end
object CopyItem: TMenuItem
Caption = '&Copy'
Hint = 'In die Zwischenablage kopieren'
OnClick = CopyItemClick
end
object PasteItem: TMenuItem
Caption = '&Paste'
Hint = 'Aus der der Zwischenablage einf�gen'
OnClick = PasteItemClick
end
end
object Window1: TMenuItem
Caption = '&Window'
Hint = 'Befehle zum Anordnen von Fenstern'
object WindowCascadeItem: TMenuItem
Caption = 'Cascade'
Hint = 'Fenster �berlappend anordnen'
OnClick = WindowCascadeItemClick
end
object WindowTileItem: TMenuItem
Caption = 'Tile Vertical'
Hint = 'Fenster nicht �berlappend anordnen'
OnClick = WindowTileItemClick
end
object WindowArrangeItem: TMenuItem
Caption = 'Arrange Icons'
Hint = 'Fenstersymbole am unteren Rand des Hauptfensters anordnen'
OnClick = WindowArrangeItemClick
end
object WindowMinimizeItem: TMenuItem
Caption = 'Minimize all'
Hint = 'Alle Fenster verkleinern'
OnClick = WindowMinimizeItemClick
end
end
object Help1: TMenuItem
Caption = '&Help'
Hint = 'Hilfethemen'
object HelpAboutItem: TMenuItem
Caption = '&Info'
end
end
end
object OpenDialog: TOpenDialog
Filter = 'Alle Dateien (*.*)|*.*'
Left = 4
Top = 196
end
end